home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / tool / multiv / src / cdp_save.bas next >
Encoding:
BASIC Source File  |  1995-03-24  |  582 b   |  16 lines
  1. 1000 'MultiV CD Player TIFF => OAX Convert
  2. 1010 SCREEN@ 0:CLS 0
  3. 1020 LOAD@"CDPLAY.TIF"
  4. 1030 DIM CDPLAY!(INT((INT((152+7)/8)*130*4+4-1)/4))
  5. 1040 GET@A(0,0)-(151,129),CDPLAY!
  6. 1050 KILL "CDPLAYER.OAX":SAVE@"CDPLAYER.OAX",CDPLAY!
  7. 1060 DIM NODISC!(INT((INT((20+7)/8)*18*4+4-1)/4))
  8. 1070 LOAD@"NODISC.TIF"
  9. 1080 GET@A(0,0)-(18,17),NODISC!
  10. 1090 KILL "NODISC.OAX":SAVE@"NODISC.OAX",NODISC!
  11. 1100 DIM REPEAT!(INT((INT((19+7)/8)*8*4+4-1)/4))
  12. 1110 LOAD@"REPEAT.TIF"
  13. 1120 GET@A(0,0)-(19,7),REPEAT!
  14. 1130 KILL "REPEAT.OAX":SAVE@"REPEAT.OAX",REPEAT!
  15. 1140 ERASE CDPLAY!,NODISC!,REPEAT!
  16.